Program FormulaResolvente ;
 var
 x,y,square,a,b,c:real;
 bool:string;
 begin
 bool:='nao';
 repeat
 writeln('formula resolvente');
 writeln('(ax^2+bx+c)');
 writeln('Atribua um valor a"a"');
 readln(a);
 writeln ('Atribua um valor a"b"');
 readln(b);
 writeln ('Atribua um valor a"c"');
 readln(c);
 square:=((b*b)-4*a*c)/(2*a);
 if square<0 then
 begin
 writeln('Sem raizes reais');
 end
 else
 begin
  x:=(-b+(sqr(b*b)-4*a*c))/(2*a) ;
 writeln('Um dos resultados é:');
 writeln(x);
  y:=(-b-(sqr(b*b)-4*a*c))/(2*a) ;
 writeln('O outro resultado é:');
 writeln(y);
 end;
 writeln('Quer sair?(sim ou nao)');
 readln(bool);
 until bool='sim';
 end.